﻿Public Class RechercheEntreprises
    Inherits OpenDelibPage

    Protected Overrides Sub OnInit(e As EventArgs)
        MyBase.OnInit(e)

        Dim appPath As String = Request.ApplicationPath
        If appPath = "/" Then
            appPath = ""
        End If

        AddCss(Me, appPath & "/Css/Fiche.css")
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Master.Titre = "Recherche d'entreprises"
        Me.ctrlSelection.Initialiser(False, True)
    End Sub

    Private Sub btnActualiser_Click(sender As Object, e As EventArgs) Handles btnActualiser.Click
        Me.ctrlSelection.Rechercher()
    End Sub

    Private Sub btnAjouterEntreprise_Click(sender As Object, e As EventArgs) Handles btnAjouterEntreprise.Click
        Response.Redirect("~/Tiers/FicheEntreprise.aspx?modeFiche=0")
    End Sub

End Class